home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Win2K DHCP Rogue Detection.xpl < prev    next >
Text File  |  2001-08-04  |  2KB  |  54 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Network\TCP/IP"
  5. "NAME"="DHCP Rogue Detection"
  6. "VERSION"="1.07"
  7. "OSVERSION"="000101"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Enable DHCP Rogue Detection on this computer"
  10. "DESCRIPTION 1"="By default, the Windows DHCP Server is configured to check if it is allowed to server DHCP. This is done by quering the ActiveDirectory (AD) and check if this computer is authorized."
  11. "DESCRIPTION 2"="If no authorization entry for this computer is found, the DHCP Server will shut down itself and note the situation to the event log."
  12. "DESCRIPTION 3"="Since Service Pack 2, it is also possible to enable the DHCP Server *WITHOUT* checking the AD. This means, the DHCP will run even if it's not authorized."
  13. "DESCRIPTION 4"="NOTE: This setting requires at least SP2 for Windows 2000."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="more information: MS KB Q297847"
  18.  
  19. sP_Check="HKLM\SYSTEM\CurrentControlSet\DHCPServer\"
  20.  
  21. sV1="HKLM\SYSTEM\CurrentControlSet\DHCPServer\Parameters\DisableRogueDetection"
  22. Sub Plugin_Initialize 
  23.     if RegPathExists(sP_Check)=false then
  24.        Disable
  25.     else
  26.        i=RegReadValue(sV1)
  27.        if i=1 then
  28.           SetUiElement 1,false
  29.        else
  30.           SetUiElement 1,true 
  31.        end if
  32.     end if
  33. End Sub
  34.  
  35. Sub Plugin_CheckData(ElementIndex)
  36. End Sub
  37.  
  38. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  39.  If GetUIElement(1)=true then
  40.     if RegValueExists(sV1) then Call RegDeleteValue(sV1)
  41.  else
  42.     Call RegWriteValue(sV1,"1",2)
  43.  end if
  44.  
  45.  Call Restart
  46. End Sub
  47.  
  48.  
  49. Sub Plugin_Terminate 
  50. End Sub
  51.  
  52.  
  53.  
  54.